home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
misc
/
emu
/
d32.lha
/
d32
/
asa_examples
/
Ex1
next >
Wrap
Text File
|
1996-03-10
|
260b
|
17 lines
; An example of 6809e code
; By S.Goodwin 1996
; Clear the text screen to black
; (character 32)
start:
lda #32 ; clear chr$
ldx #1024 ; start of text screen
loop:
sta ,x+ ; write chr$ to screen
cmpx #1536 ; reached the end yet?
bne loop
rts